caixeta  <- read.csv("caixeta.csv",as.is=T)

head(caixeta)
dap = caixeta$cap/pi
hist(dap)

c1 <- aggregate(caixeta$h, list(caixeta$arvore,caixeta$local), FUN=max)
str(c1)

library(lattice)
histogram(Group.1~x|Group.2,data=c1)

#3.  possvel ver uma maior concentrao de rvores mais altas na direo retiro>chauas>jureia